home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 5 / The 640 Meg Shareware Studio CD-ROM Volume V (Data Express)(1994).ISO / amiga / avm1_19.lha / rexx / alertmessagessaypre.avm < prev    next >
Text File  |  1994-04-06  |  334b  |  16 lines
  1. /* */
  2.  
  3. parse arg numVoiceMessages .
  4.  
  5. avmbusy = getclip('AVMBusy')
  6. if avmbusy = "" | avmbusy = "0" then do
  7.     if (numVoiceMessages = 1) then
  8.       address command "run >nil: <nil: avm:agmsplaysound avm:have1message.iff"
  9.  
  10.     if (numVoiceMessages > 1) then
  11.       address command "run >nil: <nil: avm:agmsplaysound avm:havemessages.iff"
  12. end
  13.  
  14. exit
  15.  
  16.